SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
CREATE PROCEDURE [dbo].[SP_TXMVTO_CNTB_Q40]            
/*-------------------------------------------------------------------*/                    
/*----- Empresa           : OFISIS S.A.                          ----*/                    
/*----- Cliente           : OFISIS S.A.                          ----*/                    
/*----- Sistema           : Contabilidad                         ----*/                    
/*----- Modulo            : Empresa                              ----*/                    
/*----- Programa          : Reporte FAS - 52                     ----*/                    
/*----- Nombre            : SP_TXMVTO_CNTB_Q40                   ----*/                    
/*----- Script            : TXMVTO_CNTB                          ----*/                    
/*----- Desarrollado por  : Jos? Alberto Guevara(JAG)            ----*/                    
/*----- Fecha             : 10/11/2003                           ----*/                    
/*----- Base de Datos     : MS SQL Server                        ----*/                    
/*----- Version BD        : 2000                                 ----*/                    
/*-------------------------------------------------------------------*/                    
/*-------------------------------------------------------------------*/                    
/*----- Comentarios  : Reporte Proceso de FAS 52   ----*/                    
/*----- ST_TIPO_CAMB PRO(Proceso), TRA(transaccion), CIE (Cierre)----*/                    
/*-------------------------------------------------------------------*/                    
/*-------------------------------------------------------------------*/          
/*----- Modificado 1 : Percy Garcia                              ----*/          
/*----- Fecha        : 17/12/2003                                ----*/          
/*----- Detalle      : validaciones al reporte (para que se obtenga el reporte sin el proceso previo) ----*/          
/*-------------------------------------------------------------------*/          
/*-------------------------------------------------------------------*/                    
/*-------------------------------------------------------------------*/          
/*----- Modificado 2 : Percy Garcia                              ----*/          
/*----- Fecha        : 04/06/2004                                ----*/          
/*----- Detalle      : SE COLOCO OUTER JOIN CON LA TTIDEN_CNTA EN CURSOR ----*/          
/*----- CASO QUE NO EXISTA EN LA TTIDEN_CNTA CONSIDERA CTA NORMAL----*/  
/*-------------------------------------------------------------------*/          
/*-------------------------------------------------------------------*/                    
/*----- Drop proc SP_TXMVTO_CNTB_Q40                             ----*/                    
/*----- Grant all on SP_TXMVTO_CNTB_Q40 to PUBLIC                ----*/                    
/*----- SP_TXMVTO_CNTB_Q40 @ISCO_EMPR,1,2,'DOL',2003,2,2         ----*/                    
/*-------------------------------------------------------------------*/             
/*-------------------------------------------------------------------*/                   
/*------  SP_TXMVTO_CNTB_Q40 '01',1,2,'DOL',2003,12,12, 'T', '01211' , '96888' ----*/                    
/*-------------------------------------------------------------------*/                    
        
@ISCO_EMPR       TD_VC_002,            
@INNU_CNTB_EMP1  TD_IN_001_CONT,            
@INNU_CNTB_EMP2  TD_IN_001_CONT,            
@ISCO_MONE_CTB2  TD_VC_003,            
@INNU_ANNO       TD_IN_004_ANNO,            
@INNU_MES1       TD_IN_002_MESE,            
@INNU_MES2       TD_IN_002_MESE,            
@ISTI_CNTA       TD_VC_001,  --Para Visualizar 'N'ormales, 'I'nventario,'P'roduccion,'T'odos            
@ISCO_CNTA_INIC  TD_VC_020,            
@ISCO_CNTA_FINA  TD_VC_020            
                
As             
        
Declare                     
@VSCO_EMPR       TD_VC_002,            
@CSCO_UNID_CNTB  TD_VC_003,                    
@CSCO_OPRC_CNTB  TD_VC_003,                    
@CNNU_MESE       TD_IN_002_MESE,             
@CNNU_ANNO       TD_IN_004_ANNO ,                    
@CSCO_CNTA_EMPR  TD_VC_020_CNTA,                    
@CSDE_CNTA_EMPR  TD_VC_050,                    
@CSTI_AUXI_EMPR  TD_VC_001,                    
@CSCO_AUXI_EMPR  TD_VC_020,                   
@CSNO_AUXI       TD_VC_100,                     
@CSST_TIPO_CAMB  TD_VC_003,                    
@CSCO_MONE       TD_VC_003,                    
@CNIM_MVTO_ORIG  TD_NU_016_004,                    
@CNIM_MVTO_CNTB  TD_NU_016_004,              
@VSID_GEST       TD_VC_003,                    
@VSID_DIFE       TD_VC_003,                    
@VSOP_GEST       TD_VC_003,                    
@VSOP_DIFE    TD_VC_003,                
@VSOP_DIFE_0004  TD_VC_003,                  
@VNNU_ULTI_ASTO  TD_IN_001,                    
@CNFA_CAMB_0001 TD_NU_015_006,                    
@CNFA_CAMB_0002  TD_NU_015_006,            
@CNFA_CAMB       TD_NU_015_006,                      
@VSCO_MONE_CTB1  TD_VC_003,                    
@VSCO_MONE_NACI  TD_VC_003,               
@VSCO_MONE_0001  TD_VC_003,                 
@VSCO_MONE_BA01  TD_VC_003,                 
@VSST_TIPO_CAMB  TD_VC_003,            
@VNNU_MESE       TD_IN_002_MESE,            
@VNIM_TOTA       TD_NU_016_004,            
@VNNU_REGI       Int,            
@VNIM_DIFE       TD_NU_016_004,            
@VNIM_SALD_MENS  TD_NU_016_004,            
@VNIM_SALD_CONV  TD_NU_016_004,            
@VNNU_SECU       Int,            
@CNNU_SECU       Int,            
@CSTI_CAMB       TD_VC_003,            
@CSST_CNTA_CAMB  TD_VC_003,            
@VNIM_MVTO_DEST  TD_NU_016_004,            
@CDFE_ASTO_CNTB  TD_DT_001,           
@CSNU_ASTO       TD_VC_010,            
@CSID_CNTA       TD_VC_003,            
@VSID_0004       TD_VC_003,            
@CNIM_CNTB_DEST  TD_NU_016_004,            
@VNPO_IMPO       TD_NU_009_004,            
@VSTI_CNTA       TD_VC_020, --DESCRIPCION DEL TIPO DE CUENTA            
@VSID_CTAS_PROD  TD_VC_003,            
@VSID_CTAS_INVE  TD_VC_003,             
@VSST_PARC       TD_VC_001            
            
--Obtiene informacion sobre operaciones de gestion y diferencia de cambio            
            
 Select @VSID_GEST = ID_GEST,            
 @VSID_DIFE = ID_DIFE,            
 @VSID_0004 = ID_0004,            
 @VSCO_MONE_CTB1 = CO_MONE                    
 From TTCNTB_EMPR                    
 Where CO_EMPR = @ISCO_EMPR And                    
 NU_CNTB_EMPR = @INNU_CNTB_EMP1                   
                
 Select  @VSCO_MONE_NACI = CO_MONE_NACI                    
 From TMEMPR                
 Where CO_EMPR = @ISCO_EMPR                
          
 Select @VSOP_GEST = ''                    
 Select @VSOP_GEST = IsNull(CO_OPRC_CNTB, '')                    
 From TTIDEN_OPER                    
 Where  CO_EMPR = @ISCO_EMPR                   
 And NU_CNTB_EMPR = @INNU_CNTB_EMP1                    
 And ID_OPRC = @VSID_GEST                    
                    
 Select @VSOP_DIFE = ''                    
 Select @VSOP_DIFE = IsNull(CO_OPRC_CNTB, '')                    
 From TTIDEN_OPER Where  CO_EMPR = @ISCO_EMPR                   
 And NU_CNTB_EMPR = @INNU_CNTB_EMP1                    
 And ID_OPRC = @VSID_DIFE                 
              
 Select @VSOP_DIFE_0004 = ''          
 Select @VSOP_DIFE_0004 = IsNull(CO_OPRC_CNTB, '')                      
 From TTIDEN_OPER Where  CO_EMPR = @ISCO_EMPR                     
 And NU_CNTB_EMPR = @INNU_CNTB_EMP1                      
 And ID_OPRC = @VSID_0004            
            
 Select @VSST_TIPO_CAMB = ST_TIPO_CAMB               
 From TMPARA_CONT               
 WHERE CO_EMPR = @ISCO_EMPR                  
 AND NU_ANNO = 9999               
            
-- OBTIENE LOS ID DE CUENTAS DE PRODUCCION E INVENTARIO            
            
 SELECT  @VSID_CTAS_PROD  = ID_CTAS_PROD ,            
 @VSID_CTAS_INVE = ID_CTAS_INVE              
 FROM TTCNTB_EMPR            
 WHERE CO_EMPR = @ISCO_EMPR                  
 AND NU_CNTB_EMPR = @INNU_CNTB_EMP1            
            
 -- TABLA QUE GRABA LOS ASIENTOS CONVERTIDOS POR FAS 52            
 Create Table #TWMVTO_CNTB                      
 (CO_EMPR Varchar(2) NULL,             
 NU_CNTB_EMPR Int NULL,             
 CO_UNID_CNTB Varchar(3) NULL,             
 CO_OPRC_CNTB Varchar(3) NULL,             
 NU_ANNO Int NULL,             
 NU_MESE Int NULL,             
 NU_ASTO Varchar(10) NULL,                      
 NU_SECU Int NULL,             
 FE_ASTO_CNTB DateTime NULL,             
 CO_CNTA_EMPR Varchar(20) NULL,             
 TI_AUXI_EMPR Varchar(1) NULL,             
 CO_AUXI_EMPR Varchar(20) NULL,             
 TI_DOCU Varchar(3) NULL,                      
 NU_DOCU Varchar(20) NULL,            
 FE_DOCU DateTime NULL,             
 TI_CAMB Varchar(3) NULL,             
 CO_MONE Varchar(3) NULL,             
 FA_CAMB Numeric(15, 6) NULL,             
 FA_CAMB_0002 Numeric(15, 6) NULL,             
 FA_CAMB_DIAR Numeric(15, 6) NULL,             
 TI_OPER Varchar(3) NULL,                      
 IM_MVTO_ORIG Numeric(16, 4) NULL,             
 IM_MVTO_CNTB Numeric(16, 4) NULL,             
 DE_GLOS Varchar(100) NULL,             
 NO_GIRA Varchar(100) NULL,             
 CO_ORDE_SERV Varchar(20) NULL,             
 SI_MVTO_CNTB Varchar(3) NULL,             
 ST_GEST Varchar(1) NULL,             
 ST_REDO  Varchar(3) NULL)                      
             
Create Table #TWMVTO_CNTB_Q37_1             
(NU_ANNO  INTEGER NULL,            
 NU_MESE  INTEGER NULL,            
 CO_CNTA_EMPR   varchar(20) null,            
 DE_CNTA_EMPR   varchar(50) null,            
 TI_AUXI_EMPR  varchar(1) null,            
 CO_AUXI_EMPR   varchar(20) null,            
 NO_AUXI   varchar(100) null,            
 CO_UNID_CNTB VARchar(003) null,            
 CO_OPRC_CNTB VARchar(003) null,            
 NU_ASTO  VARCHAR(010) NULL,            
 NU_SECU INTEGER NULL,            
 CO_MONE  varchar(3) null,            
 ST_TIPO_CAMB varchar(3) null,            
 IM_MVTO_ORIG numeric(16,4) null,            
 IM_MVTO_CNTB numeric(16,4) null,            
 IM_CNTB_DEST numeric(16,4) null, --IMPORTE CONVERTIDO            
 FA_CAMB numeric(15,6) null,            
 FA_CAMB_0002 numeric(15,6) null,            
 PO_IMPO numeric(15,6) null, --PORCENTAJE DEL IMPORTE(PARA PRODUCCI?N)            
 DE_PRES Varchar(10) null,            
 ID_CNTA VARCHAR(3) NULL,            
 TI_CNTA VARCHAR(20) NULL) --DESCRIPCION DEL TIPO DE CUENTA               
            
 -- LLAMA A PROCEDURE PARA QUE GRABE TEMPORAL            
 If IsNull(RTRIM(@ISCO_CNTA_INIC), '') != ''            
   Select @VSST_PARC = 'S'            
 Else             
   Select @VSST_PARC = 'N'            
            
 -- PROCEDURE GRABA EN TEMPORAL - DATOS DE CONTABILIDAD DESTINO           
 Exec SP_TXMVTO_CNTB_Q41 @ISCO_EMPR, @INNU_CNTB_EMP1, @INNU_CNTB_EMP2, @ISCO_MONE_CTB2,                      
 @INNU_ANNO, @INNU_MES1, @INNU_MES2, @ISCO_CNTA_INIC, @ISCO_CNTA_FINA, @VSST_PARC            
           
 Declare CU_TXMVTO_CNTB_Q37_1 cursor            
 For            
 Select t1.NU_ANNO, t1.NU_MESE, t1.CO_CNTA_EMPR, T2.DE_CNTA_EMPR,            
 t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, T4.NO_AUXI, T1.CO_MONE, t1.IM_MVTO_ORIG, t1.IM_MVTO_CNTB, T2.ST_TIPO_CAMB,            
 T1.FA_CAMB , t1.CO_UNID_CNTB, t1.CO_OPRC_CNTB, t1.NU_ASTO, t1.NU_SECU, t1.FE_ASTO_CNTB, IsNull(T3.ID_CNTA, '')            
 FROM TXMVTO_CNTB T1
	  LEFT OUTER JOIN TTIDEN_CNTA T3 
	  On T3.CO_EMPR = T1.CO_EMPR             
	  And T3.NU_CNTB_EMPR = T1.NU_CNTB_EMPR             
	  And T3.CO_CNTA_EMPR = T1.CO_CNTA_EMPR             
	  And T3.NU_ANNO = 9999
	  LEFT OUTER JOIN TMAUXI_EMPR T4             
	  On T4.CO_EMPR = T1.CO_EMPR            
	  AND T4.TI_AUXI_EMPR = T1.TI_AUXI_EMPR             
	  AND T4.CO_AUXI_EMPR = T1.CO_AUXI_EMPR, TMPLAN_EMPR T2 
 Where t1.CO_EMPR = @ISCO_EMPR            
 and t1.NU_CNTB_EMPR = @INNU_CNTB_EMP1            
 and Not ( t1.CO_OPRC_CNTB = @VSOP_GEST Or t1.CO_OPRC_CNTB = @VSOP_DIFE Or t1.CO_OPRC_CNTB = @VSOP_DIFE_0004)            
 and t1.NU_ANNO = @INNU_ANNO            
 and t1.NU_MESE = @INNU_MES2            
 and t1.SI_MVTO_CNTB = 'APR'             
 And T1.CO_CNTA_EMPR >= RTRIM(ltrim(@ISCO_CNTA_INIC))            
 And T1.CO_CNTA_EMPR <= RTRIM(ltrim(@ISCO_CNTA_FINA))            
 and t2.CO_EMPR = t1.CO_EMPR            
 and t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR             
 and T2.NU_ANNO = 9999             
             
 Open CU_TXMVTO_CNTB_Q37_1                      
  Fetch CU_TXMVTO_CNTB_Q37_1 Into  @INNU_ANNO, @CNNU_MESE, @CSCO_CNTA_EMPR, @CSDE_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSNO_AUXI,            
        @CSCO_MONE, @CNIM_MVTO_ORIG, @CNIM_MVTO_CNTB, @CSST_TIPO_CAMB, @CNFA_CAMB  , @CSCO_UNID_CNTB ,             
        @CSCO_OPRC_CNTB, @CSNU_ASTO, @CNNU_SECU , @CDFE_ASTO_CNTB, @CSID_CNTA        
             
 While @@Fetch_status = 0             
  Begin            
          
   If isnull(@CSST_TIPO_CAMB,'') = ''              
      Begin              
         Select @CSST_TIPO_CAMB = @VSST_TIPO_CAMB            
      End              
                  
  -------- Inserta a la Tempo los saldos mensuales y demas --------------------            
  Insert Into #TWMVTO_CNTB_Q37_1( NU_ANNO, NU_MESE, CO_CNTA_EMPR,        
  DE_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, NO_AUXI , CO_MONE ,IM_MVTO_ORIG,            
  IM_MVTO_CNTB , ST_TIPO_CAMB, CO_UNID_CNTB, CO_OPRC_CNTB, NU_SECU, NU_ASTO, ID_CNTA, TI_CNTA)            
  Values (@INNU_ANNO, @CNNU_MESE, @CSCO_CNTA_EMPR, @CSDE_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSNO_AUXI,            
  @CSCO_MONE, @CNIM_MVTO_ORIG, @CNIM_MVTO_CNTB, @CSST_TIPO_CAMB, @CSCO_UNID_CNTB ,  @CSCO_OPRC_CNTB,            
  @CNNU_SECU, @CSNU_ASTO, @CSID_CNTA, @ISTI_CNTA)          
               
 -------- obtener el factor de cambio de la cuenta para visualizarla en el Reporte------            
            
 If @CSID_CNTA = @VSID_CTAS_PROD            
 Select @VSTI_CNTA = 'PRODUCCION'               
          
 Else If @CSID_CNTA = @VSID_CTAS_INVE            
 Select  @VSTI_CNTA = 'INVENTARIO'             
            
 Else          
 Select @VSTI_CNTA = 'NORMAL'             
            
 Select @VNIM_MVTO_DEST = ROUND(IM_MVTO_CNTB,2),            
 @CNFA_CAMB = FA_CAMB,            
 @CNFA_CAMB_0002 = FA_CAMB_0002            
 From #TWMVTO_CNTB            
 Where CO_EMPR = @ISCO_EMPR            
 AND NU_CNTB_EMPR = @INNU_CNTB_EMP2            
 AND CO_UNID_CNTB = @CSCO_UNID_CNTB            
 AND CO_OPRC_CNTB = @CSCO_OPRC_CNTB            
 AND NU_ANNO = @INNU_ANNO            
 AND NU_MESE = @CNNU_MESE            
 AND NU_ASTO = @CSNU_ASTO            
 AND NU_SECU = @CNNU_SECU            
 AND CO_CNTA_EMPR = @CSCO_CNTA_EMPR            
             
 UPDATE #TWMVTO_CNTB_Q37_1            
 SET FA_CAMB = @CNFA_CAMB,         
 FA_CAMB_0002 = @CNFA_CAMB_0002,            
 IM_CNTB_DEST = ROUND(@VNIM_MVTO_DEST,2)            
 WHERE CO_UNID_CNTB = @CSCO_UNID_CNTB            
 AND CO_OPRC_CNTB = @CSCO_OPRC_CNTB            
 And NU_ANNO = @INNU_ANNO            
 AND NU_MESE = @CNNU_MESE            
 AND NU_ASTO = @CSNU_ASTO            
 AND NU_SECU = @CNNU_SECU            
 AND CO_CNTA_EMPR = @CSCO_CNTA_EMPR            
               
 UPDATE #TWMVTO_CNTB_Q37_1            
 SET TI_CNTA = @VSTI_CNTA             
 WHERE CO_CNTA_EMPR = @CSCO_CNTA_EMPR            
 AND ID_CNTA = @CSID_CNTA            
            
  Fetch CU_TXMVTO_CNTB_Q37_1 Into  @INNU_ANNO, @CNNU_MESE, @CSCO_CNTA_EMPR, @CSDE_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSNO_AUXI,            
        @CSCO_MONE, @CNIM_MVTO_ORIG, @CNIM_MVTO_CNTB, @CSST_TIPO_CAMB, @CNFA_CAMB, @CSCO_UNID_CNTB ,             
        @CSCO_OPRC_CNTB, @CSNU_ASTO, @CNNU_SECU, @CDFE_ASTO_CNTB, @CSID_CNTA        
             
  End            
  Close CU_TXMVTO_CNTB_Q37_1                    
  Deallocate CU_TXMVTO_CNTB_Q37_1            
             
  Select @VNIM_TOTA = SUM(IM_CNTB_DEST)            
  FROM #TWMVTO_CNTB_Q37_1            
  WHERE ID_CNTA = @VSID_CTAS_PROD            
            
  DECLARE CU_TXMVTO_CNTB_Q37_2 CURSOR FOR            
  Select NU_ANNO, NU_MESE, CO_CNTA_EMPR, DE_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, NO_AUXI,             
  CO_MONE, IM_MVTO_ORIG, IM_MVTO_CNTB, ST_TIPO_CAMB , IM_CNTB_DEST, ID_CNTA,         
  CO_UNID_CNTB, CO_OPRC_CNTB, NU_ANNO, NU_MESE, NU_ASTO, NU_SECU            
  FROM #TWMVTO_CNTB_Q37_1            
  WHERE ID_CNTA = @VSID_CTAS_PROD            
             
  Open CU_TXMVTO_CNTB_Q37_2                      
  Fetch CU_TXMVTO_CNTB_Q37_2 Into  @INNU_ANNO, @CNNU_MESE, @CSCO_CNTA_EMPR, @CSDE_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSNO_AUXI,            
         @CSCO_MONE, @CNIM_MVTO_ORIG, @CNIM_MVTO_CNTB, @CSST_TIPO_CAMB, @CNIM_CNTB_DEST, @CSID_CNTA,         
         @CSCO_UNID_CNTB, @CSCO_OPRC_CNTB, @CNNU_ANNO, @CNNU_MESE, @CSNU_ASTO, @CNNU_SECU                
             
    While @@Fetch_status = 0             
    Begin                 
/********************** PORCENTAJE DEL IMPORTE *************************/            
    SELECT  @VNPO_IMPO = (@CNIM_CNTB_DEST/@VNIM_TOTA) * 100            
             
    UPDATE #TWMVTO_CNTB_Q37_1            
    SET PO_IMPO = @VNPO_IMPO            
    WHERE ID_CNTA = @VSID_CTAS_PROD            
    AND CO_CNTA_EMPR = @CSCO_CNTA_EMPR            
    And CO_UNID_CNTB = @CSCO_UNID_CNTB        
    And CO_OPRC_CNTB = @CSCO_OPRC_CNTB        
    And NU_ANNO = @CNNU_ANNO        
    And NU_MESE = @CNNU_MESE        
    And NU_ASTO = @CSNU_ASTO        
    And NU_SECU = @CNNU_SECU        
                
    Fetch CU_TXMVTO_CNTB_Q37_2 Into  @INNU_ANNO, @CNNU_MESE, @CSCO_CNTA_EMPR, @CSDE_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSNO_AUXI,            
         @CSCO_MONE, @CNIM_MVTO_ORIG, @CNIM_MVTO_CNTB, @CSST_TIPO_CAMB, @CNIM_CNTB_DEST, @CSID_CNTA,         
         @CSCO_UNID_CNTB, @CSCO_OPRC_CNTB, @CNNU_ANNO, @CNNU_MESE, @CSNU_ASTO, @CNNU_SECU                
              
   End --DEL WHILE DEL SEGUNDO CURSOR                   
   Close CU_TXMVTO_CNTB_Q37_2                    
   Deallocate CU_TXMVTO_CNTB_Q37_2            
             
  IF @ISTI_CNTA = 'N'            
    Select CO_CNTA_EMPR, MAX(DE_CNTA_EMPR), TI_AUXI_EMPR, CO_AUXI_EMPR, MAX(NO_AUXI),             
    CO_MONE, IM_MVTO_ORIG, IM_MVTO_CNTB, ST_TIPO_CAMB , IM_CNTB_DEST, FA_CAMB, FA_CAMB_0002,            
    PO_IMPO , TI_CNTA            
    FROM #TWMVTO_CNTB_Q37_1            
    WHERE NOT (ID_CNTA = @VSID_CTAS_PROD OR ID_CNTA = @VSID_CTAS_INVE)            
    GROUP BY TI_CNTA, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, CO_MONE, IM_MVTO_ORIG, IM_MVTO_CNTB,            
    ST_TIPO_CAMB , IM_CNTB_DEST, FA_CAMB, FA_CAMB_0002, PO_IMPO            
    Order By TI_CNTA, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR         
             
  ELSE IF @ISTI_CNTA = 'I'            
    Select CO_CNTA_EMPR, MAX(DE_CNTA_EMPR), TI_AUXI_EMPR, CO_AUXI_EMPR, MAX(NO_AUXI),             
    CO_MONE, IM_MVTO_ORIG, IM_MVTO_CNTB, ST_TIPO_CAMB , IM_CNTB_DEST, FA_CAMB, FA_CAMB_0002,               
    PO_IMPO, TI_CNTA            
    FROM #TWMVTO_CNTB_Q37_1            
    WHERE ID_CNTA = @VSID_CTAS_INVE            
    GROUP BY TI_CNTA, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, CO_MONE, IM_MVTO_ORIG, IM_MVTO_CNTB,            
    ST_TIPO_CAMB , IM_CNTB_DEST, FA_CAMB, FA_CAMB_0002, PO_IMPO            
    Order By TI_CNTA, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR         
             
 --- SI LA CUENTA ES DE PRODUCCION NTONS SE OBTIENE EL PORCENTAJE POR C/CUENTA             
  ELSE IF @ISTI_CNTA = 'P'            
    Select CO_CNTA_EMPR, MAX(DE_CNTA_EMPR), TI_AUXI_EMPR, CO_AUXI_EMPR, MAX(NO_AUXI),             
    CO_MONE, IM_MVTO_ORIG, IM_MVTO_CNTB, ST_TIPO_CAMB , IM_CNTB_DEST, FA_CAMB, FA_CAMB_0002,               
    PO_IMPO, TI_CNTA            
    FROM #TWMVTO_CNTB_Q37_1            
    WHERE ID_CNTA = @VSID_CTAS_PROD            
    GROUP BY TI_CNTA, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, CO_MONE, IM_MVTO_ORIG, IM_MVTO_CNTB,            
    ST_TIPO_CAMB , IM_CNTB_DEST, FA_CAMB, FA_CAMB_0002, PO_IMPO            
    Order By TI_CNTA, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR         
             
  ELSE IF @ISTI_CNTA = 'T'            
    Select CO_CNTA_EMPR, MAX(DE_CNTA_EMPR), TI_AUXI_EMPR, CO_AUXI_EMPR, MAX(NO_AUXI),             
    CO_MONE, IM_MVTO_ORIG, IM_MVTO_CNTB, ST_TIPO_CAMB , IM_CNTB_DEST, FA_CAMB, FA_CAMB_0002,               
    PO_IMPO, TI_CNTA            
    FROM #TWMVTO_CNTB_Q37_1            
    GROUP BY TI_CNTA,ID_CNTA, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, CO_MONE, IM_MVTO_ORIG, IM_MVTO_CNTB,            
    ST_TIPO_CAMB , IM_CNTB_DEST, FA_CAMB, FA_CAMB_0002, PO_IMPO            
    Order By TI_CNTA, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR          
             
 RETURN            
              
/*---------------------  FIN ----------------------------------------*/
            
            
            
            
            
            
            
            
            
          
          
        
      
    
  
  
  


GO
